home *** CD-ROM | disk | FTP | other *** search
/ Windows 6-Pak - Disc 4 / Windows 6-Pak (InfoMagic) (Disc 4) (1999).ISO / Text-Chat-Addins / C-Script.exe / Sysfiles / Aliases / alias3.mrc < prev    next >
Encoding:
Text File  |  1998-05-16  |  27.4 KB  |  496 lines
  1. ;C-Script v5.0 ⌐ 1998 C-Team. All rights reserved.
  2. ;Configure at your own risk
  3. ;Networks popups, Scans, Updating & restoring, userlevels, Tonic's colors,
  4. ;Sound Center
  5.  
  6. ;==========
  7. ;Network popups
  8. ;==========
  9.  
  10. scrl1 {
  11.   if ($1 == dalnet) { if ($scrl(sysfiles\netpops\dalmenu.mrc) == $false) { return Load } | else return Unload }
  12.   if ($1 == anothernet) { if ($scrl(sysfiles\netpops\anmenu.mrc) == $false) { return Load } | else return Unload }
  13.   if ($1 == undernet) { if ($scrl(sysfiles\netpops\xwmenu.mrc) == $false) { return Load } | else return Unload }
  14.   if ($1 == csrv) { if ($scrl(sysfiles\netpops\csrvmenu.mrc) == $false) { return Load } | else return Unload }
  15.   if ($1 == newnet) { if ($scrl(sysfiles\netpops\newnmenu.mrc) == $false) { return Load } | else return Unload }
  16.   if ($1 == oz) { if ($scrl(sysfiles\netpops\zpopups.mrc) == $false) { return Load } | else return Unload }
  17.   if ($1 == k9) { if ($scrl(sysfiles\netpops\k9pops.mrc) == $false) { return Load } | else return Unload }
  18.   if ($1 == espr) { if ($scrl(sysfiles\netpops\esprmenu.mrc) == $false) { return Load } | else return Unload }
  19.   if ($1 == aust) { if ($scrl(sysfiles\netpops\austnetp.mrc) == $false) { return Load } | else return Unload }
  20. }
  21. netpopsl {
  22.   if ($1 == $null) { echo -a  $+ $clr(info2) $+ *** Syntax: /netpops [network] Example: /netpops DALnet | goto end }
  23.   elseif ($1 == dalnet) {
  24.     if ($scrl(sysfiles\netpops\dalmenu.mrc) == $false) { .load -rs sysfiles\netpops\dalmenu.mrc }
  25.     else { if (%autoapt != on) { echo -a  $+ $clr(info) $+ *** DALnet Popups Already Loaded } }
  26.     goto end
  27.   }
  28.   elseif ($1 == undernet) {
  29.     if ($scrl(sysfiles\netpops\xwmenu.mrc) == $false) { .load -rs sysfiles\netpops\xwmenu.mrc }
  30.     else { if (%autoapt != on) { echo -a  $+ $clr(info) $+ *** Undernet X/W Popups Already Loaded } }
  31.     goto end
  32.   }
  33.   elseif ($1 == anothernet) {
  34.     if ($scrl(sysfiles\netpops\anmenu.mrc) == $false) { .load -rs sysfiles\netpops\anmenu.mrc }
  35.     else { if (%autoapt != on) { echo -a  $+ $clr(info) $+ *** Anothernet Popups Already Loaded } }
  36.     goto end
  37.   }
  38.   elseif ($1 == csrv) {
  39.     if ($scrl(sysfiles\netpops\csrvmenu.mrc) == $false) { .load -rs sysfiles\netpops\csrvmenu.mrc }
  40.     else { if (%autoapt != on) { echo -a  $+ $clr(info) $+ *** CServe/Uworld Popups Already Loaded } }
  41.     goto end
  42.   }
  43.   elseif ($1 == newnet) {
  44.     if ($scrl(sysfiles\netpops\newnmenu.mrc) == $false) { .load -rs sysfiles\netpops\newnmenu.mrc }
  45.     else { if (%autoapt != on) { echo -a  $+ $clr(info) $+ *** Newnet Popups Already Loaded } }
  46.     goto end
  47.   }
  48.   elseif ($1 == oz) {
  49.     if ($scrl(sysfiles\netpops\zpopups.mrc) == $false) { .load -rs sysfiles\netpops\zpopups.mrc }
  50.     else { if (%autoapt != on) { echo -a  $+ $clr(info) $+ *** Oz.org Popups Already Loaded } }
  51.     goto end
  52.   }
  53.   elseif ($1 == k9) {
  54.     if ($scrl(sysfiles\netpops\k9pops.mrc) == $false) { .load -rs sysfiles\netpops\k9pops.mrc }
  55.     else { if (%autoapt != on) { echo -a  $+ $clr(info) $+ *** ChatNet K9 Popups Already Loaded } }
  56.     goto end
  57.   }
  58.   elseif ($1 == espr) {
  59.     if ($scrl(sysfiles\netpops\esprmenu.mrc) == $false) { .load -rs sysfiles\netpops\esprmenu.mrc }
  60.     else { if (%autoapt != on) { echo -a  $+ $clr(info) $+ *** EsperNet Services Popups Already Loaded } }
  61.     goto end
  62.   }
  63.   elseif ($1 == aust) {
  64.     if ($scrl(sysfiles\netpops\austnetp.mrc) == $false) { .load -rs sysfiles\netpops\austnetp.mrc }
  65.     else { if (%autoapt != on) { echo -a  $+ $clr(info) $+ *** Austnet Popups Already Loaded } }
  66.     goto end
  67.   }
  68.   else { echo -a  $+ $clr(info) $+ *** Popup file " $+ $1 $+ " not found! | goto end }
  69.   :end
  70. }
  71. netpopsu {
  72.   if ($1 == $null) { echo -a  $+ $clr(info2) $+ *** Syntax: /netpops [network] Example: /netpops DALnet | goto end }
  73.   elseif ($1 == dalnet) { 
  74.     if ($scrl(sysfiles\netpops\dalmenu.mrc) == $true) { .unload -rs $mircdirsysfiles\netpops\dalmenu.mrc }
  75.     else { if (%autoapt != on) { echo -a  $+ $clr(info) $+ *** DALnet Popups Not Loaded } }
  76.     goto end
  77.   }
  78.   elseif ($1 == undernet) { 
  79.     if ($scrl(sysfiles\netpops\xwmenu.mrc) == $true) { .unload -rs $mircdirsysfiles\netpops\xwmenu.mrc }
  80.     else { if (%autoapt != on) { echo -a  $+ $clr(info) $+ *** Undernet X/W Popups Not Loaded } }
  81.     goto end
  82.   }
  83.   elseif ($1 == anothernet) { 
  84.     if ($scrl(sysfiles\netpops\anmenu.mrc) == $true) { .unload -rs $mircdirsysfiles\netpops\anmenu.mrc }
  85.     else { if (%autoapt != on) { echo -a  $+ $clr(info) $+ *** Anothernet Popups Not Loaded } }
  86.     goto end
  87.   }
  88.   elseif ($1 == csrv) { 
  89.     if ($scrl(sysfiles\netpops\csrvmenu.mrc) == $true) { .unload -rs $mircdirsysfiles\netpops\csrvmenu.mrc }
  90.     else { if (%autoapt != on) { echo -a  $+ $clr(info) $+ *** CServe/Uworld Popups Not Loaded } }
  91.     goto end
  92.   }
  93.   elseif ($1 == newnet) { 
  94.     if ($scrl(sysfiles\netpops\newnmenu.mrc) == $true) { .unload -rs $mircdirsysfiles\netpops\newnmenu.mrc }
  95.     else { if (%autoapt != on) { echo -a  $+ $clr(info) $+ *** Newnet Popups Not Loaded } }
  96.     goto end
  97.   }
  98.   elseif ($1 == oz) { 
  99.     if ($scrl(sysfiles\netpops\zpopups.mrc) == $true) { .unload -rs $mircdirsysfiles\netpops\zpopups.mrc }
  100.     else { if (%autoapt != on) { echo -a  $+ $clr(info) $+ *** Oz.org Popups Not Loaded } }
  101.     goto end
  102.   }
  103.   elseif ($1 == k9) { 
  104.     if ($scrl(sysfiles\netpops\k9pops.mrc) == $true) { .unload -rs $mircdirsysfiles\netpops\k9pops.mrc }
  105.     else { if (%autoapt != on) { echo -a  $+ $clr(info) $+ *** ChatNet K9 Popups Not Loaded } }
  106.     goto end
  107.   }
  108.   elseif ($1 == espr) { 
  109.     if ($scrl(sysfiles\netpops\esprmenu.mrc) == $true) { .unload -rs $mircdirsysfiles\netpops\esprmenu.mrc }
  110.     else { if (%autoapt != on) { echo -a  $+ $clr(info) $+ *** EsperNet Services Popups Not Loaded } }
  111.     goto end
  112.   }
  113.   elseif ($1 == aust) { 
  114.     if ($scrl(sysfiles\netpops\austnetp.mrc) == $true) { .unload -rs $mircdirsysfiles\netpops\austnetp.mrc }
  115.     else { if (%autoapt != on) { echo -a  $+ $clr(info) $+ *** Austnet Popups Not Loaded } }
  116.     goto end
  117.   }
  118.   else { echo -a  $+ $clr(info) $+ *** Popup file " $+ $1 $+ " not found! | goto end }
  119.   :end
  120. }
  121.  
  122. ;==========
  123. ;Scans (IRCop, clone, port, etc.)
  124. ;==========
  125.  
  126. ;Portscan another great idea from ircN by icN
  127. portscan if ($1 != $null) set %tmp.pserver $1 | else set %tmp.pserver $server | unset %oport | unset %port | set %portscan on | echo -a  $+ $clr(info) $+ *** Scanning ports on %tmp.pserver | .stats l %tmp.pserver
  128. allIRCops { set %found 0 | set %tmp.founda 0 | set %tmp.iropn "" | set %AIRCopsRAW On | echo -a  $+ $clr(info) $+ *** Listing all network IRCops... | who 0 o }
  129. IRCops set %tmp.found 0 | set %tmp.iropn "" | set %IRCopsRAW On | if ($1 != $null) { set %tmp.server $1 | echo -a  $+ $clr(info) $+ *** Searching for IRCops on $1 | who $1 o } | else { set %tmp.server $server | echo -a  $+ $clr(info) $+ *** Searching for IRCops on $server | who $server o }
  130. sIRCops if (%tmp.iropn != $null) { set %tmp.iropo - IRCops name(s): } | wecho2 %tmp.server IRCops: $+ $clr(info2) %tmp.found  $+ $clr(info) $+ %tmp.iropo  $+ $clr(info2) $+ $gettok(%tmp.iropn,1-,44) | unset %tmp.*
  131. sscan { if ($1 == $null) { set %tmp.alscanthng $server } | else { set %tmp.alscanthng $1 } | set %ppl 0 | set %tmp.appl 0 | set %tmp.found 0 | set %tmp.enem 0 | set %tmp.frie 0 | set %tmp.clns 0 | set %tmp.clist "" | unset %scmd | unset %tmp.nclns | unset %tmp.clones | unset %tmp.iropn | unset %emnick | unset %frnick | set %tmp.SCN %tmp.alscanthng | set %SSCANRAW On | echo -a  $+ $clr(info) $+ *** Scanning %tmp.alscanthng | who %tmp.alscanthng }
  132. scan { if ($1 == $null) { set %tmp.alscanthng # } | else { set %tmp.alscanthng #$1 } | set %ppl 0 | set %tmp.fops 0 | set %tmp.nops 0 | set %tmp.appl 0 | set %tmp.vppl 0 | set %tmp.found 0 | set %tmp.enem 0 | set %tmp.frie 0 | set %tmp.schantop %SCHANTOP | set %tmp.clns 0 | set %tmp.clist "" | set %tmp.cbns 0 | unset %scmd | unset %tmp.nclns | unset %tmp.clones | unset %tmp.iropn | unset %emnick | unset %frnick | set %tmp.SCN %tmp.alscanthng | topic %tmp.alscanthng | set %SCANRAW On | echo -a  $+ $clr(info) $+ *** Scanning %tmp.alscanthng | who %tmp.alscanthng }
  133. cscan { if ($1 == $null) { set %tmp.alscanthng $server } | else { set %tmp.alscanthng $1 } | set %tmp.clns 0 | set %tmp.clist "" | unset %tmp.nclns | unset %tmp.clones | unset %tmp.clnsaddys | set %tmp.SCN %tmp.alscanthng | set %CSCANRAW On | echo -a  $+ $clr(info) $+ *** Scanning %tmp.alscanthng for clones | who %tmp.alscanthng }
  134. report {
  135.   wecho2 Stats: $+ $clr(info2) %tmp.SCN
  136.   wecho2 Topic: $+ $clr(info2) %tmp.schantop
  137.   wecho2 Total Users: $+ $clr(info2) %ppl  $+ $clr(info) $+ - Ops: $+ $clr(info2) %tmp.fops ( $+ $perc(%tmp.fops,%ppl) $+ $chr(37) $+ )  $+ $clr(info) $+ - NonOps: $+ $clr(info2) %tmp.nops ( $+ $perc(%tmp.nops,%ppl) $+ $chr(37) $+ )
  138.   wecho2 Users Away: $+ $clr(info2) %tmp.appl ( $+ $perc(%tmp.appl,%ppl) $+ $chr(37) $+ )  $+ $clr(info) $+ -Voices: $+ $clr(info2) %tmp.vppl ( $+ $perc(%tmp.vppl,%ppl) $+ $chr(37) $+ )
  139.   wecho2 Friends: $+ $clr(info2) %tmp.frie ( $+ $perc(%tmp.frie,%ppl) $+ $chr(37) $+ )  $+ $clr(info) $+ - Friend Name(s): $+ $clr(info2) %frnick 
  140.   wecho2 Enemies: $+ $clr(info2) %tmp.enem ( $+ $perc(%tmp.enem,%ppl) $+ $chr(37) $+ )  $+ $clr(info) $+ - Enemy Name(s): $+ $clr(info2) %emnick 
  141.   wecho2 Clones: $+ $clr(info2) %tmp.clns ( $+ $perc(%tmp.clns,%ppl) $+ $chr(37) $+ )  $+ $clr(info) $+ - Clone Name(s): $+ $clr(info2) %tmp.nclns 
  142.   wecho2 IRCops: $+ $clr(info2) %tmp.found ( $+ $perc(%tmp.found,%ppl) $+ $chr(37) $+ )  $+ $clr(info) $+ - IRCops Name(s): $+ $clr(info2) %tmp.iropn
  143. }
  144. sreport {
  145.   wecho2 Stats: $+ $clr(info2) %tmp.SCN
  146.   wecho2 Total Users: $+ $clr(info2) %ppl 
  147.   wecho2 Users Away: $+ $clr(info2) %tmp.appl ( $+ $perc(%tmp.appl,%ppl) $+ $chr(37) $+ )
  148.   wecho2 Friends: $+ $clr(info2) %tmp.frie ( $+ $perc(%tmp.frie,%ppl) $+ $chr(37) $+ )  $+ $clr(info) $+ - Friend Name(s): $+ $clr(info2) %frnick 
  149.   wecho2 Enemies: $+ $clr(info2) %tmp.enem ( $+ $perc(%tmp.enem,%ppl) $+ $chr(37) $+ )  $+ $clr(info) $+ - Enemy Name(s): $+ $clr(info2) %emnick 
  150.   wecho2 Clones: $+ $clr(info2) %tmp.clns ( $+ $perc(%tmp.clns,%ppl) $+ $chr(37) $+ )  $+ $clr(info) $+ - Clone Name(s): $+ $clr(info2) %tmp.nclns 
  151.   wecho2 IRCops: $+ $clr(info2) %tmp.found ( $+ $perc(%tmp.found,%ppl) $+ $chr(37) $+ )  $+ $clr(info) $+ - IRCops Name(s): $+ $clr(info2) %tmp.iropn 
  152. }
  153. creport { if (%tmp.clns == 0) { echo -a  $+ $clr(info) $+ *** No clones found on %tmp.SCN } | else { wecho2 Clone stats: $+ $clr(info2) %tmp.SCN | wecho2 Clones: $+ $clr(info2) %tmp.clns  $+ $clr(info) $+ - Clone Name(s): $+ $clr(info2) %tmp.nclns | wecho2 Clone(s) Addy(s): $+ $clr(info2) %tmp.clnsaddys } }
  154.  
  155. ;==========
  156. ;Script updating and restoring (*PANIC*)
  157. ;==========
  158.  
  159. update {
  160.   write -c sysfiles\update.ini
  161.   if (%mircexe != $null) { writeini sysfiles\update.ini update mircexe %mircexe }
  162.   if (%usrmodes != $null) { writeini sysfiles\update.ini update usrmodes %usrmodes }
  163.   if (%awayemail != $null) { writeini sysfiles\update.ini update awayemail %awayemail }
  164.   if (%browserdir != $null) { writeini sysfiles\update.ini update browserdir %browserdir }
  165.   if (%csmspass != $null) { writeini sysfiles\update.ini update csmspass %csmspass }
  166.   if (%upgrade != $null) { writeini sysfiles\update.ini update upgrade %upgrade }
  167.   if (%winver != $null) { writeini sysfiles\update.ini update winver %winver }
  168.   set %temp.1 0
  169.   :loop
  170.   set %temp.2 $readini -n mirc.ini notify n [ $+ [ %temp.1 ] ]
  171.   if (%temp.2 != $null) { writeini sysfiles\update.ini notify n [ $+ [ %temp.1 ] ] %temp.2 | inc %temp.1 | goto loop }
  172.   else { goto done }
  173.   :done
  174.   set %temp.3 0
  175.   :loop2
  176.   set %temp.4 $readini -n mirc.ini channels n [ $+ [ %temp.3 ] ]
  177.   if (%temp.4 != $null) { writeini sysfiles\update.ini channels n [ $+ [ %temp.3 ] ] %temp.4 | inc %temp.3 | goto loop2 }
  178.   else { goto done2 }
  179.   :done2
  180.   set %temp.5 0
  181.   :loop3
  182.   set %temp.6 $readini -n mirc.ini extensions n [ $+ [ %temp.5 ] ]
  183.   if (%temp.6 != $null) { writeini sysfiles\update.ini extensions n [ $+ [ %temp.5 ] ] %temp.6 | inc %temp.5 | goto loop3 }
  184.   else { goto done3 }
  185.   :done3
  186.   set %temp.7 0
  187.   :loop12
  188.   set %temp.8 $readini -n mirc.ini Perform n [ $+ [ %temp.7 ] ]
  189.   if (%temp.8 != $null) { writeini sysfiles\update.ini Perform n [ $+ [ %temp.7 ] ] %temp.8 | inc %temp.7 | goto loop12 }
  190.   else { goto done12 }
  191.   :done12
  192.   set %temp.9 0
  193.   :loop5
  194.   set %temp.10 $readini -n mirc.ini Finger n [ $+ [ %temp.9 ] ]
  195.   if (%temp.10 != $null) { writeini sysfiles\update.ini Finger n [ $+ [ %temp.9 ] ] %temp.10 | inc %temp.9 | goto loop5 }
  196.   else { goto done5 }
  197.   :done5
  198.   set %temp.11 0
  199.   :loop6
  200.   set %temp.12 $readini -n mirc.ini DCCNicks n [ $+ [ %temp.11 ] ]
  201.   if (%temp.12 != $null) { writeini sysfiles\update.ini DCCNicks n [ $+ [ %temp.11 ] ] %temp.12 | inc %temp.11 | goto loop6 }
  202.   else { goto done6 }
  203.   :done6
  204.   set %temp.13 0
  205.   :loop7
  206.   set %temp.14 $readini -n mirc.ini ident n [ $+ [ %temp.13 ] ]
  207.   if (%temp.14 != $null) { writeini sysfiles\update.ini ident n [ $+ [ %temp.13 ] ] %temp.14 | inc %temp.13 | goto loop7 }
  208.   else { goto done7 }
  209.   :done7
  210.   set %temp.15 0
  211.   :loop8
  212.   set %temp.16 $readini -n mirc.ini files n [ $+ [ %temp.15 ] ]
  213.   if (%temp.16 != $null) { writeini sysfiles\update.ini files n [ $+ [ %temp.15 ] ] %temp.16 | inc %temp.15 | goto loop8 }
  214.   else { goto done8 }
  215.   :done8
  216.   set %temp.17 0
  217.   :loop9
  218.   set %temp.18 $readini -n mirc.ini dirs n [ $+ [ %temp.17 ] ]
  219.   if (%temp.18 != $null) { writeini sysfiles\update.ini dirs n [ $+ [ %temp.17 ] ] %temp.18 | inc %temp.17 | goto loop9 }
  220.   else { goto done9 }
  221.   :done9
  222.   set %temp.19 0
  223.   :loop10
  224.   set %temp.20 $readini -n mirc.ini colours n [ $+ [ %temp.19 ] ]
  225.   if (%temp.20 != $null) { writeini sysfiles\update.ini colours n [ $+ [ %temp.19 ] ] %temp.20 | inc %temp.19 | goto loop10 }
  226.   else { goto done10 }
  227.   :done10
  228.   set %temp.21 0
  229.   :loop11
  230.   set %temp.22 $readini -n mirc.ini options n [ $+ [ %temp.21 ] ]
  231.   if (%temp.22 != $null) { writeini sysfiles\update.ini options n [ $+ [ %temp.21 ] ] %temp.22 | inc %temp.21 | goto loop11 }
  232.   else { goto done11 }
  233.   :done11
  234.   unset %temp.*
  235. }
  236. restore {
  237.   echo -a  $+ $clr(info) $+ *** Restoring old settings...
  238.   .ddeserver off
  239.   set %mircexe $readini -n sysfiles\update.ini update mircexe
  240.   if (%mircexe == Windows_95/NT) { set %mircexe Windows_95/98/NT }
  241.   set %usrmodes $readini -n sysfiles\update.ini update usrmodes
  242.   set %awayemail $readini -n sysfiles\update.ini update awayemail
  243.   set %browserdir $readini -n sysfiles\update.ini update browserdir
  244.   if ($readini sysfiles\update.ini update csmspass != $null) { set %csmspass $readini -n sysfiles\update.ini update csmspass }
  245.   set %notify $readini sysfiles\update.ini notify n0
  246.   if (%notify != $null) {
  247.     remini mirc.ini notify
  248.     set %temp.1 0
  249.     :loop1
  250.     set %temp.2 $readini -n sysfiles\update.ini notify n [ $+ [ %temp.1 ] ]
  251.     if (%temp.2 != $null) { writeini mirc.ini notify n [ $+ [ %temp.1 ] ] %temp.2 | inc %temp.1 | goto loop1 }
  252.     else { goto done1 }
  253.     :done1
  254.     unset %temp.*
  255.   }
  256.   set %channels $readini sysfiles\update.ini channels n0
  257.   if (%channels != $null) {
  258.     remini mirc.ini channels
  259.     set %temp.1 0
  260.     :loop2
  261.     set %temp.2 $readini -n sysfiles\update.ini channels n [ $+ [ %temp.1 ] ]
  262.     if (%temp.2 != $null) { writeini mirc.ini channels n [ $+ [ %temp.1 ] ] %temp.2 | inc %temp.1 | goto loop2 }
  263.     else { goto done2 }
  264.     :done2
  265.     unset %temp.*
  266.   }
  267.   if ($readini sysfiles\update.ini extensions n0 != $null) {
  268.     remini mirc.ini extensions
  269.     set %temp.1 0
  270.     :loop3
  271.     set %temp.2 $readini -n sysfiles\update.ini extensions n [ $+ [ %temp.1 ] ]
  272.     if (%temp.2 != $null) { writeini mirc.ini extensions n [ $+ [ %temp.1 ] ] %temp.2 | inc %temp.1 | goto loop3 }
  273.     else { goto done3 }
  274.     :done3
  275.     unset %temp.*
  276.   }
  277.   if ($readini sysfiles\update.ini Perform n0 != $null) {
  278.     remini mirc.ini Perform
  279.     set %temp.1 0
  280.     :loop4
  281.     set %temp.2 $readini -n sysfiles\update.ini Perform n [ $+ [ %temp.1 ] ]
  282.     if (%temp.2 != $null) { writeini mirc.ini Perform n [ $+ [ %temp.1 ] ] %temp.2 | inc %temp.1 | goto loop4 }
  283.     else { goto done4 }
  284.     :done4
  285.     unset %temp.*
  286.   }
  287.   if ($readini sysfiles\update.ini Finger n0 != $null) {
  288.     remini mirc.ini Finger
  289.     set %temp.1 0
  290.     :loop5
  291.     set %temp.2 $readini -n sysfiles\update.ini Finger n [ $+ [ %temp.1 ] ]
  292.     if (%temp.2 != $null) { writeini mirc.ini Finger n [ $+ [ %temp.1 ] ] %temp.2 | inc %temp.1 | goto loop5 }
  293.     else { goto done5 }
  294.     :done5
  295.     unset %temp.*
  296.   }
  297.   if ($readini sysfiles\update.ini DCCNicks n0 != $null) {
  298.     remini mirc.ini DCCNicks
  299.     set %temp.1 0
  300.     :loop6
  301.     set %temp.2 $readini -n sysfiles\update.ini DCCNicks n [ $+ [ %temp.1 ] ]
  302.     if (%temp.2 != $null) { writeini mirc.ini DCCNicks n [ $+ [ %temp.1 ] ] %temp.2 | inc %temp.1 | goto loop6 }
  303.     else { goto done6 }
  304.     :done6
  305.     unset %temp.*
  306.   }
  307.   if ($readini sysfiles\update.ini files n0 != $null) {
  308.     remini mirc.ini files
  309.     set %temp.1 0
  310.     :loop7
  311.     set %temp.2 $readini -n sysfiles\update.ini files n [ $+ [ %temp.1 ] ]
  312.     if (%temp.2 != $null) { writeini mirc.ini files n [ $+ [ %temp.1 ] ] %temp.2 | inc %temp.1 | goto loop7 }
  313.     else { goto done7 }
  314.     :done7
  315.     unset %temp.*
  316.   }
  317.   if ($readini sysfiles\update.ini ident n0 != $null) {
  318.     remini mirc.ini ident
  319.     set %temp.1 0
  320.     :loop8
  321.     set %temp.2 $readini -n sysfiles\update.ini ident n [ $+ [ %temp.1 ] ]
  322.     if (%temp.2 != $null) { writeini mirc.ini ident n [ $+ [ %temp.1 ] ] %temp.2 | inc %temp.1 | goto loop8 }
  323.     else { goto done8 }
  324.     :done8
  325.     unset %temp.*
  326.   }
  327.   if ($readini sysfiles\update.ini dirs n0 != $null) {
  328.     remini mirc.ini dirs
  329.     set %temp.1 0
  330.     :loop9
  331.     set %temp.2 $readini -n sysfiles\update.ini dirs n [ $+ [ %temp.1 ] ]
  332.     if (%temp.2 != $null) { writeini mirc.ini dirs n [ $+ [ %temp.1 ] ] %temp.2 | inc %temp.1 | goto loop9 }
  333.     else { goto done9 }
  334.     :done9
  335.     unset %temp.*
  336.   }
  337.   if ($readini sysfiles\update.ini colours n0 != $null) {
  338.     remini mirc.ini colours
  339.     set %temp.1 0
  340.     :loop10
  341.     set %temp.2 $readini -n sysfiles\update.ini colours n [ $+ [ %temp.1 ] ]
  342.     if (%temp.2 != $null) { writeini mirc.ini colours n [ $+ [ %temp.1 ] ] %temp.2 | inc %temp.1 | goto loop10 }
  343.     else { goto done10 }
  344.     :done10
  345.     unset %temp.*
  346.   }
  347.   if ($readini sysfiles\update.ini options n0 != $null) {
  348.     remini mirc.ini options
  349.     set %temp.1 0
  350.     :loop11
  351.     set %temp.2 $readini -n sysfiles\update.ini options n [ $+ [ %temp.1 ] ]
  352.     if (%temp.2 != $null) { writeini mirc.ini options n [ $+ [ %temp.1 ] ] %temp.2 | inc %temp.1 | goto loop11 }
  353.     else { goto done11 }
  354.     :done11
  355.     unset %temp.*
  356.   }
  357.   set %upd.set yes
  358.   echo -a  $+ $clr(info) $+ *** Restore finished
  359.   echo -a  $+ $clr(info) $+ *** Updating system please wait...
  360.   .timer 1 3 run $mircdir [ $+ [ %mircexe ] ]
  361.   .timer 1 4 exit | unset %chanels %notify
  362. }
  363.  
  364. ;==========
  365. ;Userlevels
  366. ;==========
  367.  
  368. friend .auser 7 $$1 | .guser 7 $$1 3 | echo  $+ $clr(info2) $+ *** Added $$1 to your friends-list!
  369. rfriend .ruser 7 $$1 | .ruser 7 $$1 3 | echo  $+ $clr(info2) $+ *** Removed $$1 from your friends-list!
  370. shoot .auser =999 $$1 | .guser =999 $$1 3 | ignore -a $$1 3 | ban # $$1 3 | kick # $$1 %shlstd | notice $$1 %shlstd | echo  $+ $clr(info2) $+ *** Added $$1 to your shoot-list! | if ($group(#groupshoot) != on) { echo  $+ $clr(info) $+ *** The Shoot-List is currently Off! To turn it on go to Settings -> Settings G-Z -> ShootList -> Turn On }
  371. rshoot .ruser =999 $$1 | .ruser =999 $$1 3 | ignore -r $$1 3 | echo  $+ $clr(info2) $+ *** Removed $$1 from your shoot-list!
  372.  
  373. ;==========
  374. ;Below fct thanks to To|\|iC's awesome color addons
  375. ;==========
  376.  
  377. fct say $ifct($1-) | unset %c
  378. bg say $ibg($1-) | unset %num %num2 %num3 %msg %color
  379. brg say $ibrg($1-) | unset %num %num2 %num3 %msg %color
  380. bw say $ibw($1-) | unset %num %num2 %num3 %msg %color
  381. rw say $irw($1-) | unset %num %num2 %num3 %msg %color
  382. rg say $irg($1-) | unset %num %num2 %num3 %msg %color
  383. reverse say $iReverse($1-) | unset %final %endreverse %sections %reverseme %length %backtext %tempback %reversed_text %temp
  384. brain say $iBrain($1-) | unset %o %i %p %c
  385. brick say $iBrick($1-) | unset %num %num2 %num3 %msg %color
  386. ct echo -a Color: %ACT2
  387. bct echo -a Color: %BCT
  388. bgct { set %ct 0 | set %ctb 0 | :next | inc %ct | if (%ct > 15) { %ct = 0 | inc %ctb 1 } | if (%ct == %ctb) { goto next } | if (%ctb > 15) { goto done } | echo 2 $chr(3) $+ %ct $+ , $+ %ctb Color Table Number %ct $+ , $+ %ctb $+ $chr(3) | goto next | :done | unset %ct | unset %ctb }
  389. at { linesep | set %chr.var 1  | :loop | if (%chr.var > 255) { goto done } | echo  $+ $clr(info) $+ Ascii %chr.var is $chr(%chr.var) | inc %chr.var 1 | goto loop | :done | unset %chr.var | linesep }
  390. face say %FACE
  391.  
  392. ;==========
  393. ;Sound Center
  394. ;==========
  395.  
  396. ss {
  397.   if ($2 != $null) { 
  398.     set %tmp.DesFile [ $wavedir [ $+ [ $nopath($1) ] ] ]
  399.     if ($exists(%tmp.desfile) == $false) { echo  $+ $clr(info) $+ *** $1 is not a valid file. | halt }
  400.     writeini sysfiles\C-Script.ini SoundSys $1- | echo  $+ $clr(info2) $+ *** $1 was added with a description of: $2-
  401.     halt
  402.   }
  403.   if ($1 != $null) { s $1 | halt }
  404.   if ($1 == $null) {
  405.     set %ss.chan $active
  406.     set %tmp.ss.com sound %ss.chan
  407.     set %tmp.ss.dcom describe %ss.chan
  408.     if (($left($active,1) != $chr(61) && $server == $null) || ($left($active,6) == Status)) { set %tmp.ss.com splay | set %tmp.ss.dcom echo 12 -a You }
  409.     wincheck @soundsys -l +btn @SoundSys $center(225,63,@SoundSys) 225 63 @SoundSys comic sans ms 12
  410.     rline @SoundSys 1 áááááááááááááááááPlay A Sound
  411.     rline @SoundSys 2 Add/Modify a "/s <sound>" Description
  412.   }
  413. }
  414. ssplay {
  415.   if ($window(@SoundSys) != $null) { window -c @SoundSys }
  416.   set %tmp.ssfile $$dir="Select Sound" [ $wavedir ]
  417.   %tmp.desc = $readini -n sysfiles\c-script.ini soundsys $nopath(%tmp.ssfile)
  418.   if (%tmp.desc != $null) { %tmp.ss.com %tmp.ssfile | if ($left(%tmp.sfile,$len($wavedir)) == $wavedir) { %tmp.ss.dcom just played $nopath(%tmp.sfile) ! $+ $me $nopath(%tmp.sfile) $+  $chr(91) $+ $kbyte($lof(%tmp.sfile)) $+ $chr(93) } | else { %tmp.ss.dcom just played $nopath(%tmp.sfile) $chr(91) $+ $kbyte($lof(%tmp.sfile)) $+ $chr(93) } }
  419.   else { %tmp.ss.com %tmp.ssfile | if ($left(%tmp.sfile,$len($wavedir)) == $wavedir) { %tmp.ss.dcom just played $nopath(%tmp.sfile) ! $+ $me $nopath(%tmp.sfile) $+  $chr(91) $+ $kbyte($lof(%tmp.sfile)) $+ $chr(93) } | else { %tmp.ss.dcom just played $nopath(%tmp.sfile) $chr(91) $+ $kbyte($lof(%tmp.sfile)) $+ $chr(93) } }
  420.   unset %tmp.desc
  421. }
  422. s {
  423.   if ($1 == $null) set %tmp.sfile $$dir="Select Sound:" $wavedir
  424.   else set %tmp.sfile $1
  425.   if (:\ !isin %tmp.sfile) { set %tmp.sfile $wavedir $+ %tmp.sfile }
  426.   set %tmp.sfile2 %tmp.sfile
  427.   set %tmp.ss.com sound
  428.   set %tmp.ss.dcom me
  429.   if (($left($active,1) != $chr(61) && $server == $null) || ($left($active,6) == Status)) { set %tmp.ss.com splay | set %tmp.ss.dcom echo 12 -a You }
  430.   if (.wav == $right(%tmp.sfile,4) || .mid == $right(%tmp.sfile,4)) { set %tmp.sfile %tmp.sfile }
  431.   else { set %tmp.sfile %tmp.sfile $+ .wav }
  432.   if ($exists(%tmp.sfile) == $false) { set %tmp.sfile $replace(%tmp.sfile,.wav,.mid) }
  433.   if ($exists(%tmp.sfile) == $false) { echo $clr(info) -a *** File not found $nopath(%tmp.sfile2) | halt }
  434.   if ($2 != $null) { set %tmp.desc $2- }
  435.   else { %tmp.desc = $readini -n sysfiles\c-script.ini soundsys $nopath(%tmp.sfile) }
  436.   if (%tmp.desc != $null) { %tmp.ss.com %tmp.sfile | if ($left(%tmp.sfile,$len($wavedir)) == $wavedir) { %tmp.ss.dcom just played $nopath(%tmp.sfile) ! $+ $me $nopath(%tmp.sfile) $+  $chr(91) $+ $kbyte($lof(%tmp.sfile)) $+ $chr(93)  $+ %tmp.desc } | else { %tmp.ss.dcom just played $nopath(%tmp.sfile) $chr(91) $+ $kbyte($lof(%tmp.sfile)) $+ $chr(93)  $+ %tmp.desc } }
  437.   else { %tmp.ss.com %tmp.sfile | if ($left(%tmp.sfile,$len($wavedir)) == $wavedir) { %tmp.ss.dcom just played $nopath(%tmp.sfile) ! $+ $me $nopath(%tmp.sfile) $+  $chr(91) $+ $kbyte($lof(%tmp.sfile)) $+ $chr(93) } | else { %tmp.ss.dcom just played $nopath(%tmp.sfile) $chr(91) $+ $kbyte($lof(%tmp.sfile)) $+ $chr(93) } }
  438.   unset %tmp.desc
  439. }
  440. ssadd {
  441.   set %tmp.ssfile $$dir="Select Sound:" $wavedir
  442.   set %tmp.ssinfo $?="Enter Description (no colors, blank for null):"
  443.   if ($window(@SoundSys) != $null) { window -c @SoundSys }
  444.   if (%tmp.ssinfo == $null) { remini c-script.ini SoundSys $nopath(%tmp.ssfile) | echo  $+ $clr(info2) $+ *** Removed sound info for $nopath(%tmp.ssfile) }
  445.   else { writeini sysfiles\c-script.ini SoundSys $nopath(%tmp.ssfile) %tmp.ssinfo | echo  $+ $clr(info2) $+ *** $nopath(%tmp.ssfile) was added with a description of: $! }
  446. }
  447. fs say SOUND $1
  448. ps splay $$dir="Pick a sound:" [ $wavedir ]
  449. sa play $$file="Pick a file to play:" $mircdirascii\*.txt 100
  450. ;Links @window menu
  451. lnkscon {
  452.   if ($chr(91) isin $gettok($sline(%cslinks,1),2,32)) { server $remove($remove($gettok($sline(%cslinks,1),2,32),$chr(93)),$chr(91)) 6667 | goto done }
  453.   if ($chr(91) isin $gettok($sline(%cslinks,1),3,32)) { server $remove($remove($gettok($sline(%cslinks,1),3,32),$chr(93)),$chr(91)) 6667 | goto done }
  454.   if ($chr(91) isin $gettok($sline(%cslinks,1),4,32)) { server $remove($remove($gettok($sline(%cslinks,1),4,32),$chr(93)),$chr(91)) 6667 | goto done }
  455.   else { echo -a  $+ $clr(info) $+ Unable to resolve DNS for $sline(%cslinks,1),1,32) $+ ! | goto done }
  456.   :done
  457. }
  458. ;Clonescan
  459. clones {
  460.   set %timetest $ticks
  461.   if ($1 != $null) { set %clnschn $1 }
  462.   else { set %clnschn $active }
  463.   if ($left(%clnschn,1) != $chr(35) || %clnschn == $null) { echo -a  $+ $clr(info) $+ *** You must be on a channel or specify a channel | goto end }
  464.   if ($nick(%clnschn,0) <= 1) { echo -a  $+ $clr(info) $+ *** You are the only person in %clnschn | goto end }
  465.   :next
  466.   inc %count | if (%count <= $nick(%clnschn,0)) {
  467.     if ($ialchan($address($nick(%clnschn,%count),2),%clnschn,0) > 1) && ($findtok(%clones,$address($nick(%clnschn,%count),2),1,169) == $null) {
  468.       set %clones %clones $+ $chr(169) $+ $address($nick(%clnschn,%count),2)
  469.       set %clones2 %clones2 $+ $chr(169) $+ $clone($address($nick(%clnschn,%count),2),%clnschn) $+ á $+ ( $+ $address($nick(%clnschn,%count),2) $+ )
  470.     }
  471.   }
  472.   else goto end
  473.   goto next
  474.   :end
  475.   %speed = $ticks - %timetest
  476.   if (%clones == $null) { echo -a  $+ $clr(info) $+ *** No clones found on %clnschn (Total time searching: $ims(%speed) sec(s)) | goto end2 }
  477.   set %count 1
  478.   wincheck %csclnsd -ls %csclnsd $center(600,100,%csclnsd) $wh(600,100,%csclnsd) %csclnsd Comic sans ms 12
  479.   titlebar %csclnsd for %clnschn (Total time searching: $ims(%speed) sec(s))
  480.   :next2
  481.   inc %count | if ($gettok(%clones2,%count,169) == $null) { goto end2 }
  482.   rline %csclnsd $next $gettok(%clones2,%count,169)
  483.   goto next2
  484.   :end2
  485.   unset %clones %clones2 %clones %timetest %count | window -b %csclnsd | next 1
  486. }
  487. winclose { close -@ $1- }
  488. sock wincheck @Socket -e +fnt @Socket $center(500,250) 500 250 @Socket Terminal | .sockclose Socket | if ($1) { sockcon $1- 23 }
  489. sockcon sockopen Socket $1- | sockmark Socket Basic socket script | set %sock.srv $1 | set %sock.port $2 | set %sock.connected Yes | set %sock.online 0 | echo @Socket 12* Connecting to %sock.srv on port %sock.port
  490. sockdiscon sockclose Socket | echo @Socket 12* Disconnected | unset %sock.*
  491. sockopen {
  492.   if ($sock($1) != $null) { echo $clr(info2) -a *** Error: Socket named " $+ $1 $+ " is currently in use... Close the socket using /sockclose $1 $+ , or wait for the script using that socket to finish before continuing! | halt }
  493.   elseif ($3 == $null) { echo $clr(info2) -a * /sockopen: " $+ $1- $+ " is not enough parameters! Syntax: /sockopen <name> <address> <port> | halt }
  494.   else { sockopen $1- }
  495. }
  496.